$file_values = $ARGV[0];
open BUFF,$file_values or die "can't open file $file_values ";
$s2 =0;
$s3 =0;
$s4 =0;
$s5 =0;
$s6 =0;
$s7 =0;
$s8 =0;
$s9 =0;

$s32 =0;
$s33 =0;
$s34 =0;
$s35 =0;
$s36 =0;
$s37 =0;
$s38 =0;
$s39 =0;

$s82 =0;
$s83 =0;
$s84 =0;
$s85 =0;
$s86 =0;
$s87 =0;
$s88 =0;
$s89 =0;

while($line = <BUFF>)
{
	chomp($line);
        @array = split(/\t/,$line);
	for($i=2;$i<@array;$i++)
	{
		if($array[$i] ne "NaN")
		{
			${"s$i"}++;
			if($array[$i] > 0.3)
			{
				${"s3$i"}++;
				if($array[$i] > 0.8)
                        	{
					${"s8$i"}++;
				}
			}
		}
		
	}		
}
print "$s2 $s3 $s4 $s5 $s6 $s7 $s8 $s9 three $s32 $s33 $s34 $s35 $s36 $s37 $s38 $s39 eight $s82 $s83 $s84 $s85 $s86 $s87 $s88 $s89\n";
